home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbactl.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-02-09  |  1.7 KB  |  41 lines
  1. (*===========================================================================*)
  2. (* Load action file                                                          *)
  3. (*                                                                           *)
  4. (*   Copyright 1990, 1991 by H. Roy Engehausen.  All rights reserved.        *)
  5. (*                                                                           *)
  6. (*===========================================================================*)
  7.  
  8. (*===========================================================================*)
  9. (* Load action                                                               *)
  10. (*===========================================================================*)
  11.  
  12. PROCEDURE load_action(execute_who : CHAR);
  13.  
  14.   VAR
  15.     action_file      : TEXT;
  16.     action_word      : STRING[20];
  17.     execute_load     : BOOLEAN;
  18.     execute_make     : BOOLEAN;
  19.     execute_clean    : BOOLEAN;
  20.     i                : INTEGER;
  21.     invert_flag      : BOOLEAN;
  22.     j                : INTEGER;
  23.     last_msg_action  : action_msg_ptr;
  24.     new_msg_action   : action_msg_ptr;
  25.     options_str      : str15;
  26.     search_info      : search_block_type;
  27.     str_ptr          : ^STRING;
  28.     s1               : STRING;
  29.     s2               : STRING;
  30.  
  31.   LABEL
  32.     iterate;
  33.  
  34.   {$I BBACTLT.PAS}  (* Sub procedure to validate a search arguement *)
  35.   {$I BBACTLC.PAS}  (* Sub procedure to chain an action             *)
  36.   {$I BBACTLB.PAS}  (* Sub procedures to validate and build         *)
  37.   {$I BBACTLF.PAS}  (* Sub procedure to make file                   *)
  38.   {$I BBACTLH.PAS}  (* Sub procedure to clean things                *)
  39.   {$I BBACTLM.PAS}  (* Main line                                    *)
  40.  
  41.